home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr28 / tfwclean.zip / TFWCLEAN.PAS < prev   
Pascal/Delphi Source File  |  1995-02-01  |  1KB  |  39 lines
  1. {$A+,B-,D-,E+,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V+,X+,Y-}
  2. {$M 4096,0,16384}
  3.  
  4.  
  5. program CleanErUpEr;
  6.  
  7. Uses CRT, DOS, Strings;
  8.  
  9.   procedure DeleteIt(p: pChar);
  10.   var
  11.     f: file;
  12.   begin
  13.     assign(f, p);
  14.     setFAttr(f, 0);
  15.     erase(f);
  16.     if IOResult = 0 then ; { just to clear the error, else it fails and won't continue }
  17.   end;
  18.  
  19. var
  20.   CurDrive: array[0..3] of char;
  21.   FileName: array[0..144] of char;
  22.   Tmp: string;
  23. begin
  24.   writeln('Removing Telix Registration Sentry from v1.01b and prior...');
  25.  
  26.   GetDir(0,Tmp);
  27.   StrCopy(CurDrive, 'C:\');
  28.   CurDrive[0] := Tmp[1];
  29.  
  30.   DeleteIt(StrCat(StrCopy(FileName, CurDrive), 'UBUYTHIS.NOW'));
  31.   DeleteIt(StrCat(StrCopy(FileName, CurDrive), 'SWCOWIYB.SYS'));
  32.   DeleteIt(StrCat(StrCat(StrCopy(FileName, CurDrive),'WIN\SYSTEM\'),'VDTMCP73.386'));
  33.   DeleteIt(StrCat(StrCat(StrCopy(FileName, CurDrive), 'WINDOWS\SYSTEM\'), 'VDTMCP73.386'));
  34.  
  35.   StrPCopy(FileName, GetEnv('TEMP'));
  36.   if FileName[StrLen(FileName)-1] <> '\' then StrCat(FileName, '\');
  37.   DeleteIt(StrCat(FileName, '~TBM439E.TMP'));
  38. end.
  39.